CoreMap.mesa 2-Sep-78 16;32:14 Page 



-- CoreMap.Mesa 
-- Edited by 

Sandman on April 15, 1978 5:28 PM 

Barbara on June 22, 1978 2:69 PM 

DIRECTORY 

AUoDefs: FROM "aUodefs" USING [MaxVMPage, PageNumber, PageSize], 

BcdDefs: FROM "bcddefs" USING [MTHandle, MTIndex, NameRecord, NameString], 

BootDefs: FROM "bootdefs", 

ControlDefs: FROM "controldef s" USING [GFT, GlobalFrameHandle], 

DebugData: FROM "debugdata" USING [debugPilot, ESV], 

DebugMiscDefs: FROM "debugmiscdef s" USING [CommandNotAnowed , ControlDEL], 

DebugUtilityDefs: FROM "debugutil itydef s" USING [ 

AREAD, LoadStatelnvalid, MREAD, SREAD], 
lODefs: FROM "iodefs" USING [ 

CR, NumberFormat, Rubout, SP, WriteChar, WriteLine, WriteNumber, 

WriteOctal, WriteString] , 
LoaderBcdUtilDefs: FROM "loaderbcdutildef s" USING [ 

BcdBase, EnumerateModuleTable, ReleaseBcdSeg, SetUpBcd], 
LoadStateDefs: FROM "loadstatedef s" USING [ 

BcdAddress, BcdSegFromLoadState, Configlndex, EnumerateLoadStateBcds, 

FileSegmentHandle, Initial izeRelocation, InputLoadState, ReleaseLoadState, 

ReleaseRelocation, Relocation], 
SegmentDefs: FROM "segmentdef s" USING [ 

AddressFromPage, DataSegmentHandle, DataSegmentObJect, FileSegmentHandle, 

FileSegmentObject, Object, ObjectHandle, ObjectType, PageCount, 

PageNumber, SegmentObject], 
StreamDefs: FROM "streamdefs" USING [ControlDELtyped], 

StringDefs: FROM "stringdefs" USING [AppendSubString , SubStringDescriptor], 
SystemDefs: FROM "systemdefs" USING [ 

AllocateHeapNode, AllocateHeapString , Al locateSegment , FreeHeapNode, 

FreeHeapString, FreeSegment, PruneHeap]; 

DEFINITIONS FROM AltoDefs, SystemDefs, lODefs, SegmentDefs; 

CoreMap: PROGRAM 

IMPORTS DDptr: DebugData, DebugMiscDefs, DebugUtilityDefs, LoadStateDefs. 

lODefs, SystemDefs, SegmentDefs, StringDefs, StreamDefs, LoaderBcdUtilDefs 
EXPORTS DebugMiscDefs 
SHARES SegmentDefs ■ 

BEGIN 

byte: NumberFormat «= NumberFormat[8, FALSE, TRUE, 3]; 
word: NumberFormat « NumberFormat[8, FALSE, TRUE, 6]; 

CopyRead: PROCEDURE [from, to: POINTER, nwords: CARDINAL] « 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .nwords) DO 

(to+i)t ♦- DebugUtilityDefs. SREAD[from4-i]; 
ENDLOOP; 
RETURN 
END; 

PrintPages: PROCEDURE [ 

page:PageNumber, count:PageCount, state:PageState] » 

BEGIN 

WriteNumber [page, byte] ; Wri teChar[SP]; 

WriteNumber [AddressFromPage [page] ,word]; 

WriteString[" "L]; 

WriteNumber [count, byte]; 

WriteLine[SELECT state FROM 

free »> " free"L, 

data «> " data"L. 

file «> " file"L, 

busy «> " busy"L^ 

ENDCASE »> " ?"L]; 
RETURN 
END; 

PrintDataSegment: PROCEDURE [seg:DataSegmentHandle] RETURNS [PageCount] « 
BEGIN 

s: DataSegmentObJect; 

CopyRead[to: 6s, from: seg, nwords: SIZE[DataSegmentOb ject]]; 
PrintPages[s .VMpage,s .pages ,data] ; 
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RETURN[s. pages] 
END; 

PrintFileSegment: PROCEDURE [seg: FileSegmentHancne] RETURNS [PageCount] 
BEGIN 

s: FileSegmentObject; 

CopyR8acl[to: 0s, from: seg, nwords: SIZE[FneSegmentObject]]; 
Writ8Number[s.\/Mpage,byte]; WriteChar[SP] ; 
Wr i teNumb er [ Add res sFromPage[s.VMp age], word]; WriteChar[SP]; 
Writ8Number[s. base, byte]; WriteChar[SP]; 
Wr i teNumb er[s, pages, byte]; WriteChar[SP] ; 
WriteString["SN"L]; 

WriteOctal[DebugUti1ityDefs.AREAD[@s.file.f p. serial .partZ]]; 
SELECT s. class FROM 

code «> WriteString[" code"L]; 

ENDCASE; 
IF s.read OR s. write THEN WriteChar[' ]; 
IF s.read THEN WriteChar[ 'R]; 
IF s. write THEN WriteChar[ • W]; 
IF s.lock > THEN 

BEGIN 

WriteString[" lock«"L]; 

WriteOctal[s.lock]; 

END; 
SELECT s. class FROM 

code »> PrintFileName[seg]; 

ENDCASE; 
WriteChar[CR]; 
RETURN[s. pages] 
END; 

PrintFileName: PROCEDURE [seg: FileSegmentHandle] « 
BEGIN 

node: POINTER TO Nameltem; 
found: BOOLEAN ^ FALSE; 

FOR node *- NameList, node. next UNTIL node » NIL DO 
IF node. code ■ seg THEN 
BEGIN 

WriteChar[SP]; 
WriteString[ node. module]; 
found ^ TRUE; 
END; 
ENDLOOP; 
RETURN 
END; 

Nameltem: TYPE - RECORD [ 
next: POINTER TO Nameltem. 
code: FileSegmentHandle, 
module: STRING]; 

NameList: POINTER TO Nameltem ^ NIL; 

FindFrameNames: PROCEDURE ■ 

BEGIN OPEN LoaderBcdUtilDefs, DebugUtil ityDef s , LoadStateDef s ; 
bed: BcdBase; 

proc: PROCEDURE [config: Configlndex, bcdAddr: BcdAddress] 
RETURNS [BOOLEAN] « 
BEGIN 

rel : Relocation ^ Initial izeRelocation[conf ig] ; 
bcdseg: FileSegmentHandle <- BcdSegFromLoadState[conf ig]; 
code: FileSegmentHandle; 

FindNames: PROCEDURE [mth: BcdDef s.MTHandle, mti: BcdDef s .MTIndex] 
RETURNS [BOOLEAN] « 
BEGIN OPEN ControlDefs; 

frame: Global FrameHandle <- MREAD[0GFT[rel[mth . gfi]] .frame] ; 
code <- MREAD[@frame.codesegment] ; 
AddName[code , bed, mth. name]; 
RETURN[FALSE]; 
END; 
[] <- EnumerateModuleTable[bcd ♦- SetUpBcd[bcdseg] , FindNames] ; 
ReleaseRelocation[rel]; 
ReleaseBcdSeg[bcdseg]; 
RETURN[FALSE]; 
END; 
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BEGIN 

[] ^ InputLoaclState[ I LoadStatelnval id ■> GOTO noNames]; 

[] ♦- EnumerateLoadStateBcds[rec8ntfirst,proc]; 

ReleaseLoadState[]; 

EXITS 

noNames ■> NULL; 
END; 
END; 

AddName: PROCEDURE [code: FileSegmentHandle, bed: LoaderBcdUtilDefs.BcdBase. 
name: BcdDef s .NameRecord] « 
BEGIN 

ssb: BcdDefs.NameString » LOOPHOLE[bcd+bcd.ssOff set]; 
ss: StringDefs.SubStringDescriptor ♦- 

[base: 6ssb. string, offset: name, length: ssb.size[name]]; 
s: STRING ^ SystemDef s .AnocateHeapString[ssb . size[nam8]]; 
node: POINTER TO Nameltem ^ AnocateHeapNode[SIZE[NameItem]]; 
StringDef s.AppendSubString[s, 0ss]; 
nodet ♦- [next: NameList, code: code, module: s]; 
NameList <- node; 
END; 

FreeNames: PROCEDURE ■ 
BEGIN 

node: POINTER TO Nameltem; 
FOR node ^ NameList, NameList UNTIL node » NIL DO 

NameList ^ node. next; 

SystemDef s.FreeHeapStr ing[node, module]; 

SystemDef s.FreeHeapNode[ node]; 

ENDLOOP; 
[] ♦■ SystemDef s.PruneHeap[] ; 
END; 

PageState: TYPE » {free, data, file, busy}; 

PageRecord: TYPE » RECORD [ 
state: PageState, 
segment: POINTER]; 

PageMap: DESCRIPTOR FOR ARRAY OF PageRecord <- DESCRIPTOR[NIL,MaxVMPage+ll; 

StuffDataSegment: PROCEDURE [seg:DataSegmentHandle] RETURNS [BOOLEAN] ■ 
BEGIN 

i: PageNumber; 

status: PageRecord « PageRecord[data,seg]; 
s: DataSegmentObject; 

CopyRead[to: 0s, from: seg, nwords: SIZE[DataSegmentOb ject]]; 
FOR i IN [s .VMpage. .s .VMpage+s.pages) DO 

PageMap[i] <- status; 

ENDLOOP; 
RETURN[FALSE] 
END; 

StuffFileSegment: PROCEDURE [seg: Fi leSegmentHandle] RETURNS [BOOLEAN] - 
BEGIN 

i: PageNumber; 
status: PageRecord; 
s: FileSegmentObject; 

CopyRead[to: @s, from: seg, nwords: SIZE[FileSegmentObject]]; 
IF s.swappedin THEN 

BEGIN 

status <r PageRecord[f ile, seg]; 

FOR i IN [s. VMpage. .s. VMpage+s.pages) DO 
PageMap[i] *- status; 
ENDLOOP; 

END; 
RETURN[FALSE] 
END; 

--util ities 

PageFree: PUBLIC PROCEDURE [page: AltoDefs . PageNumber] RETURNS [BOOLEAN] " 
BEGIN OPEN DebugUtilityDefs; 

table: BootDef s .SystemTableHandle -» DDptr.ESV. tables; 
pagemap: POINTER TO BootDef s . PageMap *- SREAD[0table.pagemap] ; 
RETURN[SREAD[@pag0map[page]] « BootDef s . FreePage] 



CoreMap.mesa 2-Sep-78 15:32:14 Page 

END; 

SegmentObject: TYPE ■ SegmentDef s.SegmentObject; 

EnumerateDataSegments: PUBLIC PROCEDURE [ 

proc:PROCEDURE [DataSegrnentHandle] RETURNS [BOOLEAN]] 
RETURNS [DataSegrnentHandle] ■ 

BEGIN OPEN DebugUtilityDefs, SegmentDefs, BootDefs; 
seg: DataSegrnentHandle; 
temp: SegmentObject; 

table: BootDefs. SystemTableHandle - DDptr . ESV. tables ; 
pagemap: POINTER TO BootDefs . PageMap ^ SREAD[0table.pagemap]; 
i: [0. .AltoDefs.MaxVMPage] ♦- 0; 
WHILE i <- AltoDefs.MaxVMPage DO 
seg <- SREAD[0pagemap[i]]; 
IF seg # FreePage AND seg # BusyPage THEN 
BEGIN 

CopyRead[to: Qtemp , from: seg, nwords: SIZE[SegmentObject]] ; 
WITH t: temp SELECT FROM 
data "> 
BEGIN 

IF proc[seg] THEN RETURN [seg]; 
i ♦" i + t. pages; 
END; 
file »> i ♦" i + t. pages; 
ENDCASE; 
END 
ELSE i ♦- i + 1; 
ENDLOOP; 
RETURN[NIL]; 
END; 

EnumerateFileSegments: PROCEDURE [ 

proc:PROCEDURE [Fi leSegmentHandle] RETURNS [BOOLEAN]] 
RETURNS [FileSegmentHandle] » 
BEGIN 

CheckSegment: PROCEDURE [seg: FileSegmentHandle] RETURNS [BOOLEAN] - 
BEGIN OPEN SegmentDefs; 
temp: SegmentObject; 

CopyReadff rom: seg, to: 0temp, nwords: SIZE[SegmentObject]]; 
RETURN[WITH temp SELECT FROM 
file »> proc[seg], 
ENDCASE «> FALSE] 
END; 
RETURN[LOOPHOLE[EnumerateObjects[ segment, LOOPHOLE[CheckSegment]]]] 
END; 

ObjectHandle: TYPE » SegmentDef s .ObjectHandle; 

EnumerateObjects: PROCEDURE [type: SegmentDef s.ObjectType. 
proc:PROCEDURE [ObjectHandle] RETURNS [BOOLEAN]] 
RETURNS [object: ObjectHandle] - 

BEGIN OPEN DebugUtilityDefs, SegmentDefs. BootDefs; 
temp: Object; 
i, j: CARDINAL; 
table: TableHandle; 

systemtable: BootDefs. SystemTableHandle = DDptr, ESV. tables; 
FOR table <- SREAD[0systemtable. table] , SREAD[etable. 1 ink] 
UNTIL table « NIL DO 
j ♦- i <- SIZE[Table]; 

FOR object ♦- ©table. free + i, object + i UNTIL j >» Al toDef s. PageSize DO 
CopyRead[to: @temp, from: object, nwords: SIZE[Object]]; 
i ^ WITH t: temp SELECT FROM 
segment «> SELECT t.type FROM 

data »> SIZE[data segment Object], 
ENDCASE «> SIZE[file segment Object], 
file «> SIZE[file Object], 
free «> t.size, 
ENDCASE «> SIZE[length Object]; 

j ♦" j + t; 

IF temp, tag « type AND proc[object] THEN RETURN[object]; 

ENDLOOP; 
ENDLOOP; 
RETURN[NIL] 
END; 
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coremap: PUBLIC PROCEDURE ■ 
BEGIN 

dseg: DataSegmentHandle; 
fseg: FileSegmentHandle; 
count: PageCount ^ 0; 
page, hole: PageNumber ^ 0; 
state, next: PageState ^ free; 
IF DDptr^debugPilot THEN 
BEGIN 

lODefs.Wri test ring ["Debugging Pilot--"]; 
SIGNAL DebugMiscDefs.CommandNotAnowed; 
END; 
PageMap *- DESCRIPTOR [AllocateSegment [ 

LENGTH[PageMap]*SIZE[PageRecord]],LENGTH[PageMap]]; 
BEGIN ENABLE UNWIND -> 
BEGIN 

FreeSegment[BASE[PageMap]]; 
FreeNames[]; 
END; 

FOR page IN [0 . .LENGTH[PageMap3) DO 
PageMap[page] ^ PageRecord [ 

IF PageFree[page] THEN free ELSE busy, NIL]; 
ENDLOOP; 
FindFraineNames[]; 

[] ^ EnumerateDataSegments[StuffDataSegment]; 
[] ♦■ EnumerateFileSegments[StuffFileSegment]; 
WpiteChar[CR]; page ♦■ 0; 
UNTIL page >« LENGTH[PageMap] DO 
ENABLE Rubout «> EXIT; 
next ^ PageMap[page]. state; 
dseg ♦- fseg ^ PageMap[page] .segment; 
IF next # state AND countJ^'O THEN 
BEGIN 

PrintPages [hole, count, state]; 
hole ^ hole+count; count *- 0; 
END; 
page <- page + ( 

SELECT state *- next FROM 

data «> PrintDataSegment[dseg]. 
file => PrintFileSegment[fseg3, 
ENDCASE «> 1); 
SELECT state FROM 

data, file »> hole ^ page; 
ENDCASE «> count ^ count+1; 
IF StreamDefs.ControlDELtyped[] THEN SIGNAL DebugMiscDef s.ControlDEL; 
REPEAT 

FINISHED «> IF counti^O THEN 
PrintPages[hole, count, state]; 
ENDLOOP; 
END; 
FreeSegment [BASE [PageMap]]; 
FreeNanies[]; 
WriteChar[CR]; 
RETURN 
END; 

END. .. 



